home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / Data / readaddr.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-02  |  260 b   |  17 lines
  1. OPEN "AddressFile" FOR INPUT AS 1
  2.  
  3. ReadData:
  4.   INPUT#1,Nam$
  5.   INPUT#1,Address$
  6.   INPUT#1,City$
  7.   INPUT#1,Phone$
  8.   PRINT 
  9.   PRINT "Name: ";Nam$
  10.   PRINT "Address: ";Address$
  11.   PRINT "City: ";City$
  12.   PRINT "Phone: ";Phone$
  13.   
  14.   IF EOF(1)=0 THEN ReadData
  15. CLOSE 1
  16.  
  17.